                                         /* GUI CONVERTED from ppbdov01.p (converter v1.75) Sun Aug 13 13:44:11 2000 */
/* ppbdov01.p - MATERIAL BURDEN COST UPDATE                             */
/* Copyright 1986-2000 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 7.0     LAST MODIFIED: 09/04/91    BY: pma *F003**/
/* REVISION: 7.3     LAST MODIFIED: 02/22/93    BY: pma *G032**/
/* REVISION: 8.6     LAST MODIFIED: 06/11/96    BY: aal *K001*          */
/* REVISION: 8.6     LAST MODIFIED: 05/20/98    BY: *K1Q4* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/13/00 BY: *N0KQ* myb              */


         {mfdeclre.i}
{gplabel.i &ClearReg=yes} /* EXTERNAL LABEL INCLUDE */

/*K001*/ {gldydef.i new}
/*K001*/ {gldynrm.i new}

         define new shared variable transtype as character format "x(4)".

/*GUI*/ if global-beam-me-up then undo, leave.


         transtype = "PPMTL".
         {gprun.i ""hkppbdova.p"" "(input  transtype)"}
/*GUI*/ if global-beam-me-up then undo, leave.
